MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues.
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)
House drawing with lines
Jump to navigation
Jump to search
Just as a curiosity
Famous house drawing with lines in the radio shack catalogs
FOR COLOR BASIC
5 CLS 10 PCLEAR 4 15 PMODE 3,1 17 PCLS 20 SCREEN 1,1 30 LINE(0,185)-(255,185),PSET 40 LINE(50,135)-(200,135),PSET 50 LINE(50,135)-(50,85),PSET 60 LINE(150,135)-(150,85),PSET 70 LINE(200,135)-(200,105),PSET 80 LINE(50,85)-(150,85),PSET 90 LINE(150,105)-(200,105),PSET 100 LINE(70,S5)-(170,65),PSET 110 LINE(170,85)-(220,85),PSET 120 LINE(50,85)-(70,65),PSET 130 LINE(150,85)-(170,65),PSET 140 LINE(150,105)-(170,85),PSET 150 LINE(200,105)-(220,85),PSET 160 LINE(170,65)-(190,82),PSET 170 LINE(220,85)-(240,102),PSET 175 LINE(190,82)-(90,85),PSET 180 LINE(240,102)-(240,127),PSET 190 LINE(200,135)-(240,127),PSET 200 FOR X=62 TO 77:LINE(140,X)-(145,X),PSET:NEXT X 210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X 220 LINE(140,62)-(145,59),PSET 230 LINE-(148,59),PSET 240 LINE(155,135)-(155,115),PSET 250 LINE(195,135)-(195,115),PSET 260 LINE(155,115)-(195,115),PSET 270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X 280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X 290 LINE(174,127)-(176,127),PSET 300 Y=85:FOR X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X 310 Y=105:FOR X=150 TO 170 STEP 4: LINE(X,Y)-(X+50,Y),PSET: Y=Y-4:NEXT X 320 LINE(95,135)-(95,118),PSET 330 LINE(105,135)-(105,118),PSET 340 LINE(95,118)-(105,118),PSET 350 PSET(103,126,8) 360 LINE(55,130)-(90,130),PSET 370 LINE(55,130)-(55,118),PSET 380 LINE(90,130)-(90,118),PSET 390 LINE(55,118)-(90,118),PSET 400 LINE(110,130)-(145,130),PSET 410 LINE(110,130)-(110,118),PSET 420 LINE(145,130)-(145,118),PSET 430 LINE(110,118)-(145,118),PSET 440 LINE(63,100)-(67,100),PSET 450 LINE(63,100)-(63,105),PSET 460 LINE(67,100)-(67,105),PSET 470 LINE(63,105)-(67,105),PSET 480 LINE(80,100)-(85,100),PSET 490 LINE(80,100)-(80,105),PSET 500 LINE(85,100)-(85,105),PSET 510 LINE(80,105)-(85,105),PSET 520 LINE(108,100)-(113,100),PSET 530 LINE(108,100)-(108,105),PSET 540 LINE(113,100)-(113,105),PSET 550 LINE(108,105)-(113,105),PSET 560 LINE(126,100)-(131,100),PSET 570 LINE(126,100)-(126,105),PSET 580 LINE(131,100)-(131,105),PSET 590 LINE(126,105)-(131,105),PSET 600 LINE(155,135)-(105,145),PSET 605 LINE(82,150)-(20,165),PSET 610 LINE(195,135)-(60,165),PSET 620 LINE(0,165)-(20,165),PSET 630 LINE(60,165)-(255,165),PSET 640 LINE(95,135)-(30,150),PSET 645 LINE(105,135)-(95,145),PSET 650 LINE(65,145)-(105,145),PSET 660 LINE(30,150)-(82,150),PSET 670 LINE(0,115)-(50,115),PSET:LINE(240,115)-(255,115),PSET 680 GOTO 680
FOR Extended COLOR BASIC more efficient, Now, for the creative and fancy readers. Since lines 360-590 are drawing squares and rectangles, each using four program lines, let's let Extended BASIC do some of the work for us. Delete those lines (360-590) and add these instead:
5 CLS 10 PCLEAR 4 15 PMODE 3,1 17 PCLS 20 SCREEN 1,1 30 LINE(0,185)-(255,185),PSET 40 LINE(50,135)-(200,135),PSET 50 LINE(50,135)-(50,85),PSET 60 LINE(150,135)-(150,85),PSET 70 LINE(200,135)-(200,105),PSET 80 LINE(50,85)-(150,85),PSET 90 LINE(150,105)-(200,105),PSET 100 LINE(70,S5)-(170,65),PSET 110 LINE(170,85)-(220,85),PSET 120 LINE(50,85)-(70,65),PSET 130 LINE(150,85)-(170,65),PSET 140 LINE(150,105)-(170,85),PSET 150 LINE(200,105)-(220,85),PSET 160 LINE(170,65)-(190,82),PSET 170 LINE(220,85)-(240,102),PSET 175 LINE(190,82)-(90,85),PSET 160 LINE(240,102)-(240,127),PSET 190 LINE(200,135)-(240,127),PSET 200 FOR X=G2 TO 77:LINE(140,X)-(145,X),PSET:NEXT X 210 FOR X=62 TO 77:LINE(145,X)-(148,X-3),PSET:NEXT X 220 LINE(140,62)-(145,59),PSET 230 LINE-(148,59),PSET 240 LINE(155,135)-(155,115),PSET 250 LINE(195,135)-(195,115),PSET 260 LINE(155,115)-(195,115),PSET 270 FOR X=115 TO 135 STEP 5:LINE (155,X)-(195,X),PSET:NEXT X 280 FOR X=122 TO 123:LINE(160,X)-(170,X),PSET:LINE(180,X)-(190,X),PSET:NEXT X 290 LINE(174,127)-(17B,127),PSET 300 Y=85:F0R X=50 TO 70 STEP 4:LINE(X,Y)-(X+100,Y),PSET:Y=Y-4:NEXT X 310 Y=105:FOR X=150 TO 170 STEP 4: LINE(X,Y)-(X+50,Y),PSET: Y=Y-4:NEXT X 320 LINE(95,135)-(95,118),PSET 330 LINE(105,135)-(105,118),PSET 340 LINE(95,118)-(105,118),PSET 350 PSET(103,126,8) 355 REM -------- New lines ------ 360 LINE(55,l18)-(90,130),PSET,B 400 LINE(110,130)-(145,118),PSET,B 440 LINE(63,100)-(67,105)*PSET,B 480 LINE(80,100)-(85,105)*PSET,B 520 LINE(108,100)-(113,105)*PSET,B 560 LINE(126,100)-(131,105),PSET,B 570 REM ----- End New lines ------- 600 LINE(155,135)-(105*145),PSET 605 LINE(82,150)-(20,165),PSET 610 LINE(195,135)-(60,165),PSET 620 LINE(0,165)-(20,165),PSET 630 LINE(60,165)-(255,165),PSET 640 LINE(5,135)-(30,150),PSET 645 LINE(105,135)-(,5,145),PSET 650 LINE(65,145)-(105,145),PSET 660 LINE(30,150)-(82,150),PSET 670 LINE(0,1l5)-(50,115),PSET:LINE(240,115)-(255,115),PSET 680 GOTO 680